www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Admin_DownEdit.asp
<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="FCKeditor/fckeditor.asp" -->
<!--#include file="Function/Function_Down.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="copyright" content="Copyright 2008 dananshan.com" />
<meta name="Author" content="闪电文章管理系统技术支持---www.dananshan.com" />
<meta name="Keywords" content="闪电文章管理系统文章管理系统" />
<meta name="Description" content="闪电文章管理系统文章管理系统" />
<title>添加资源下载</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<script src="../js/check.js" type="text/javascript"></script>
</head>
<body>
<%
'========判断是否具有管理权限
if Instr(session("AdminPower"),"|53,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
else
if Request.QueryString ("Form")="Edit" then
call Edit_Content()
else
call Add_Content()
end if
end if
%>
</body>
</html>
<%
Function Add_Content()
response.Write "<form method='post' action='?action=add'>"
response.Write "<div id='frame_Toolbar' class='toolbarBg'>"
response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>"
response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>"
response.Write "<div id='guide' class='light_orange'>请填写资源下载！</div>"
response.Write "<div class='pageInfo right light_gray'></div>"
response.Write "</div>"
response.Write "<table class='cTable_2 table'>"
response.Write "<tr class='cTitle toolbarBg'>"
response.Write "<td width='15%'><div>添加下载</div></td>"
response.Write "<td width='85%'> </td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>下载名称：</td>"
response.Write "<td>"
response.Write "<input name='DownName' type='text' id='DownName' style='width:250px;' onBlur='check_DownName(this.value);'/>"
response.Write "<input name='IsShow' type='checkbox' id='IsShow' value='checkbox' checked='checked' />发布 <span id='span_DownName'>请填写下载名称</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>所属类别：</td>"
response.Write "<td>"
response.Write "<select style='width:250px;' name='Sort' onBlur='check_DownSort(this.value);'>"
response.Write "<option value='0' selected='selected'>=============请选择类别=============</option>"
sql="Select * From Idea_DownSort order by id"
set rs=idea.exec(sql,1)
do while not rs.eof
response.Write "<option value='"&rs("ID")&"'>"&rs("SortName")&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
response.Write "</select> <span id='span_DownSort'>请选择下载类别</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>授权方式：</td>"
response.Write "<td>"
response.Write "<select style='width:250px;' name='Accmode'>"
response.Write "<option value='免费软件'>免费软件</option>"
response.Write "<option value='共享软件'>共享软件</option>"
response.Write "<option value='破解软件'>破解软件</option>"
response.Write "<option value='商业软件'>商业软件</option>"
response.Write "</select> <span id='span_Accmode'>请选择授权方式</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>语言界面：</td>"
response.Write "<td>"
response.Write "<select style='width:250px;' name='Language'>"
response.Write "<option value='简体中文'>简体中文</option>"
response.Write "<option value='繁体中文'>繁体中文</option>"
response.Write "<option value='英语'>英语</option>"
response.Write "<option value='多国语言'>多国语言</option>"
response.Write "<option value='其它语言'>其它语言</option>"
response.Write "</select> <span id='span_Language'>请选择语言界面</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>运行环境：</td>"
response.Write "<td>"
response.Write "<input name='approof' type='text' id='approof' style='width:250px;' onBlur='check_Approof(this.value);'/> "
response.Write "<a href='javascript:' onClick=""document.getElementById('approof').value+='Win9x'"">Win9x</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/WinNT'"">WinNT</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/WinNT'"">Win2K</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/WinXP'"">WinXP</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/Win2003'"">Win2003</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/其它'"">其它</a> "
response.Write "<span id='span_Approof'></span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>下载地址：</td>"
response.Write "<td>"
response.Write "<input name='FileUrl' id='FileUrl' type='text' style='width:250px;'> "
response.Write "<iframe src='up/upload.asp?Type=Soft' scrolling='no' topmargin='0' width='275' height='24' marginwidth='0' marginheight='0' frameborder='0' align='center'></iframe>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>文件大小：</td>"
response.Write "<td>"
response.Write "<input name='FileSize' type='text' id='FileSize' style='width:250px;'/> <span id='span_FileSize'>请填写文件大小(如：20.1M)</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>文件图片：</td>"
response.Write "<td>"
response.Write "<input name='pic' id='pic' type='text' style='width:250px;'> "
response.Write "<input type='hidden' name='spic' id='spic' />"
response.Write "<iframe src='up/upload.asp?Type=Pic&Class=Down' scrolling='no' topmargin='0' width='275' height='24' marginwidth='0' marginheight='0' frameborder='0' align='center'></iframe>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td valign='top' class='tRight'>文件介绍：</td>"
response.Write "<td>"
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath="fckeditor/"
oFCKeditor.ToolbarSet="Idea"
oFCKeditor.Width="550"
oFCKeditor.Height="350"
oFCKeditor.Value="请填写相关信息！"
oFCKeditor.Create "Content"
response.Write "</td>"
response.Write "</tr>"
response.Write "</table>"
response.Write "<div id='cEndToolbar' class='toolbarBg'>"
response.Write "<div class='caButCase'>"
response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' disabled='disabled' value='确认添加' class='button'> "
response.Write "<input type='reset' name='Submit2' value='清空重填' class='button'>"
response.Write "</div>"
response.Write "</div>"
response.Write "</form>"
End Function
Function Edit_Content()
ID=trim(request("ID"))
if ID<>"" and IsNumeric(ID) then
sql="select * from Idea_Down where ID="&ID
set rs=idea.exec(sql,1)
do while not rs.eof
response.Write "<form method='post' action='?Action=update&ID="&ID&"'>"
response.Write "<div id='frame_Toolbar' class='toolbarBg'>"
response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>"
response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>"
response.Write "<div id='guide' class='light_orange'>请填写资源下载！</div>"
response.Write "<div class='pageInfo right light_gray'></div>"
response.Write "</div>"
response.Write "<table class='cTable_2 table'>"
response.Write "<tr class='cTitle toolbarBg'>"
response.Write "<td width='15%'><div>编辑下载</div></td>"
response.Write "<td width='85%'> </td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>下载名称：</td>"
response.Write "<td>"
response.Write "<input name='DownName' type='text' id='DownName' style='width:250px;' value='"&rs("DownName")&"' onBlur='check_DownName(this.value);'/>"
if rs("IsShow")=true then
response.Write "<input name='IsShow' type='checkbox' id='IsShow' value='checkbox' checked='checked' />发布 <span id='span_DownName'>请填写下载名称</span>"
else
response.Write "<input name='IsShow' type='checkbox' id='IsShow' value='checkbox' />发布 <span id='span_DownName'>请填写下载名称</span>"
end if
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>所属类别：</td>"
response.Write "<td>"
response.Write "<select style='width:250px;' name='Sort' onBlur='check_DownSort(this.value);'>"
response.Write "<option value='0' selected='selected'>=============请选择类别=============</option>"
sql1="Select * From Idea_DownSort order by id"
set rs1=idea.exec(sql1,1)
do while not rs1.eof
response.Write "<option value='"&rs1("ID")&"'"
if cint(rs1("ID"))=rs("SortID") then
response.Write " selected='selected'"
end if
response.Write ">"&rs1("SortName")&"</option>"
rs1.movenext
loop
rs1.close
set rs1=nothing
response.Write "</select> <span id='span_DownSort'>请选择下载类别</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>授权方式：</td>"
response.Write "<td>"
response.Write "<select style='width:250px;' name='Accmode'>"
response.Write "<option value='免费软件'>免费软件</option>"
response.Write "<option value='共享软件'>共享软件</option>"
response.Write "<option value='破解软件'>破解软件</option>"
response.Write "<option value='商业软件'>商业软件</option>"
response.Write "</select> <span id='span_Accmode'>请选择授权方式</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>语言界面：</td>"
response.Write "<td>"
response.Write "<select style='width:250px;' name='Language'>"
response.Write "<option value='简体中文'>简体中文</option>"
response.Write "<option value='繁体中文'>繁体中文</option>"
response.Write "<option value='英语'>英语</option>"
response.Write "<option value='多国语言'>多国语言</option>"
response.Write "<option value='其它语言'>其它语言</option>"
response.Write "</select> <span id='span_Language'>请选择语言界面</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>运行环境：</td>"
response.Write "<td>"
response.Write "<input name='approof' type='text' id='approof' style='width:250px;' value='"&rs("Approof")&"' onBlur='check_Approof(this.value);'/> "
response.Write "<a href='javascript:' onClick=""document.getElementById('approof').value+='Win9x'"">Win9x</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/WinNT'"">WinNT</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/WinNT'"">Win2K</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/WinXP'"">WinXP</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/Win2003'"">Win2003</a>|<a href='javascript:' onClick=""document.getElementById('approof').value+='/其它'"">其它</a> "
response.Write "<span id='span_Approof'></span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>下载地址：</td>"
response.Write "<td>"
response.Write "<input name='FileUrl' id='FileUrl' type='text' value='"&rs("FileUrl")&"' style='width:250px;'> "
response.Write "<iframe src='up/upload.asp?Type=Soft' scrolling='no' topmargin='0' width='275' height='24' marginwidth='0' marginheight='0' frameborder='0' align='center'></iframe>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>文件大小：</td>"
response.Write "<td>"
response.Write "<input name='FileSize' type='text' id='FileSize' value='"&rs("FileSize")&"' style='width:250px;'/> <span id='span_FileSize'>请填写文件大小(如：20.1M)</span>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td class='tRight'>文件图片：</td>"
response.Write "<td>"
response.Write "<input name='pic' id='pic' type='text' value='"&rs("SoftPic")&"' style='width:250px;'> "
response.Write "<input type='hidden' name='spic' id='spic' value='"&rs("sSoftPic")&"'/>"
response.Write "<iframe src='up/upload.asp?Type=Pic&Class=Down' scrolling='no' topmargin='0' width='275' height='24' marginwidth='0' marginheight='0' frameborder='0' align='center'></iframe>"
response.Write "</td></tr>"
response.Write "<tr>"
response.Write "<td valign='top' class='tRight'>文件介绍：</td>"
response.Write "<td>"
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath="fckeditor/"
oFCKeditor.ToolbarSet="Idea"
oFCKeditor.Width="550"
oFCKeditor.Height="350"
oFCKeditor.Value=rs("Content")
oFCKeditor.Create "Content"
response.Write "</td>"
response.Write "</tr>"
response.Write "</table>"
response.Write "<div id='cEndToolbar' class='toolbarBg'>"
response.Write "<div class='caButCase'>"
response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' value='确认修改' class='button'> "
response.Write "<input type='reset' name='Submit2' value='清空重填' class='button'>"
response.Write "</div>"
response.Write "</div>"
response.Write "</form>"
rs.movenext
loop
rs.close
set rs=nothing
end if
End Function
%>